home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).adf / Include / ExecIO.i < prev    next >
Text File  |  1989-07-02  |  1KB  |  65 lines

  1.  
  2.     { These are the structures and functions you'll need to
  3.       do use the Exec IO facility. }
  4.  
  5. {$I "Include/Ports.i"}
  6.  
  7. const
  8.     IOOpenFail  = -1;
  9.     IOAborted   = -2;
  10.     IONoCmd     = -3;
  11.     IOBadLength = -4;
  12.  
  13.     IOQuick     = 1;
  14.  
  15.     CMD_INVALID = 0;
  16.     CMD_RESET   = 1;
  17.     CMD_READ    = 2;
  18.     CMD_WRITE   = 3;
  19.     CMD_UPDATE  = 4;
  20.     CMD_CLEAR   = 5;
  21.     CMD_STOP    = 6;
  22.     CMD_START   = 7;
  23.     CMD_FLUSH   = 8;
  24.  
  25.     CMD_NONSTD  = 9;
  26.  
  27. type
  28.     IORequest = record
  29.     ioMessage : Message;
  30.     ioDevice  : Address;
  31.     ioUnit    : Address;
  32.     ioCommand : Short;
  33.     ioFlags   : Byte;
  34.     ioError   : Byte;
  35.     end;
  36.     IORequestPtr = ^IORequest;
  37.  
  38.     IOStdReq = record
  39.     ioReq     : IORequest;
  40.     ioActual  : Integer;
  41.     ioLength  : Integer;
  42.     ioData    : String;
  43.     ioOffset  : Integer;
  44.     end;
  45.     IOStdReqPtr = ^IOStdReq;
  46.  
  47. Procedure AbortIO(i : IORequestPtr);
  48.     External;
  49. Procedure AddDevice(d : Address);
  50.     External;
  51. Function CheckIO(i : IORequestPtr): IORequestPtr;
  52.     External;
  53. Procedure CloseDevice(i : IORequestPtr);
  54.     External;
  55. Function DoIO(i : IORequestPtr): Integer;
  56.     External;
  57. Function OpenDevice(s : String; u : Integer;
  58.             i : IORequestPtr; f : Integer) : Integer;
  59.     External;
  60. Procedure SendIO(i : IORequestPtr);
  61.     External;
  62. Function WaitIO(i : IORequestPtr): Integer;
  63.     External;
  64.  
  65.